home *** CD-ROM | disk | FTP | other *** search
/ Paradise in the Skirt / Paradise in the Skirt.iso / supr4.dir / 00069_Script_Man < prev    next >
Text File  |  1994-11-11  |  6KB  |  189 lines
  1. global gBlockList,gGirlList,gEntranceList,totalHpoint,moveV,moveH,RmoveH,RmoveV,stepNo,manH,manV,raderH,raderV,gMovieList,movieNo,movieName
  2.  
  3.  
  4. on moveMan direction
  5.   put stepNo + 1 into stepNo
  6.   if direction = 8 then
  7.     put 0 into moveH
  8.     put -9 into moveV
  9.     put 0 into RmoveH
  10.     put -72 into RmoveV
  11.     put 19 into startCast
  12.     put 22 into endCast
  13.   else if direction = 2 then
  14.     put 0 into moveH
  15.     put 9 into moveV
  16.     put 0 into RmoveH
  17.     put 72 into RmoveV
  18.     put 15 into startCast
  19.     put 18 into endCast
  20.   else if direction = 4 then
  21.     put -12 into moveH
  22.     put 0 into moveV
  23.     put -48 into RmoveH
  24.     put 0 into RmoveV
  25.     put 23 into startCast
  26.     put 26 into endCast
  27.   else if direction = 6 then
  28.     put 12 into moveH
  29.     put 0 into moveV
  30.     put 48 into RmoveH
  31.     put 0 into RmoveV
  32.     put 27 into startCast
  33.     put 30 into endCast
  34.   end if
  35.   IF NOT(THE CASTNUM OF SPRITE 13 = startCast) THEN
  36.     SET THE CASTNUM OF SPRITE 13 TO startCast
  37.     UPDATESTAGE
  38.     mMove girl1
  39.     mMove girl2
  40.     mMove girl3
  41.     EXIT
  42.   END IF
  43.   if direction = 2 then
  44.     repeat with spno in gEntranceList
  45.       if sprite 14 intersects spno then
  46.         SET THE CASTNUM OF SPRITE 13 TO THE NUMBER OF CAST "D2"
  47.         SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + 9
  48.         UPDATESTAGE
  49.         SET THE CASTNUM OF SPRITE 13 TO THE NUMBER OF CAST "D3"
  50.         SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + 9
  51.         UPDATESTAGE
  52.         SET THE CASTNUM OF SPRITE 13 TO THE NUMBER OF CAST "D4"
  53.         SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + 9
  54.         UPDATESTAGE
  55.         SET THE CASTNUM OF SPRITE 13 TO THE NUMBER OF CAST "D1"
  56.         SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + 9
  57.         UPDATESTAGE
  58.         SET THE CASTNUM OF SPRITE 13 TO THE NUMBER OF CAST "D2"
  59.         SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + 9
  60.         UPDATESTAGE
  61.         SET THE CASTNUM OF SPRITE 13 TO THE NUMBER OF CAST "D3"
  62.         SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + 9
  63.         UPDATESTAGE
  64.         SET THE CASTNUM OF SPRITE 13 TO THE NUMBER OF CAST "D4"
  65.         SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + 9
  66.         UPDATESTAGE
  67.         SET THE CASTNUM OF SPRITE 13 TO THE NUMBER OF CAST "D1"
  68.         SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + 12
  69.         UPDATESTAGE
  70.         put 152 into manH
  71.         put 155 into manV
  72.         put 144 into raderH
  73.         put 146 into raderV
  74.         play done
  75.         exit
  76.       end if
  77.     end repeat
  78.   end if
  79.   set the locH of sprite 14 = the locH of sprite 14 + RmoveH
  80.   set the locV of sprite 14 = the locV of sprite 14 + RmoveV
  81.   updateStage
  82.   if stepNo >= 5 then
  83.     repeat with spno in gGirlList
  84.       if sprite 14 intersects spno then
  85.         if random(20) = 2 then
  86.           go to marker(1)
  87.           
  88.           nanpa
  89.           
  90.           set the locH of sprite 14 = the locH of sprite 14 - RmoveH
  91.           set the locV of sprite 14 = the locV of sprite 14 - RmoveV
  92.           put 0 into stepNo
  93.           exit
  94.         end if
  95.         put getaProp(gMovieList,spno) into movieNo
  96.         put item 1 of line movieNo of the text of cast "CommentList" into Hpoint
  97.         SET THE LOCH OF SPRITE 14 TO THE LOCH OF SPRITE 14 - RmoveH
  98.         set the locV of sprite 14 to the locV of sprite 14 - RmoveV
  99.         puppetSprite 48, False
  100.         updateStage
  101.         sound stop 1
  102.         put "S" into movieName
  103.         playQTMovie
  104.         
  105.         put value(Hpoint) into thisHpoint
  106.         if thisHpoint > 0 then
  107.           set the text of cast "Comment" to "H.Point  +"&Hpoint
  108.         else
  109.           put abs(thisHpoint) into Hpoint
  110.           set the text of cast "Comment" to "H.Point  -"&Hpoint
  111.         end if
  112.         put totalHpoint + thisHpoint into totalHpoint
  113.         put totalHpoint into field "Hpoint"
  114.         put 0 into stepNo
  115.         EXIT
  116.       END IF
  117.     END REPEAT
  118.   end if
  119.   repeat with spno in gBlockList
  120.     if sprite 14 intersects spno then
  121.       SET THE LOCV OF SPRITE 14 TO THE LOCV OF SPRITE 14 - RmoveV
  122.       set the locH of sprite 14 to the locH of sprite 14 - RmoveH
  123.       UPDATESTAGE
  124.       SET THE CASTNUM OF SPRITE 13 TO startCast + 1
  125.       UPDATESTAGE
  126.       SET THE CASTNUM OF SPRITE 13 TO startCast + 2
  127.       UPDATESTAGE
  128.       SET THE CASTNUM OF SPRITE 13 TO startCast + 3
  129.       UPDATESTAGE
  130.       SET THE CASTNUM OF SPRITE 13 TO startCast
  131.       UPDATESTAGE
  132.       mMove girl1
  133.       mMove girl2
  134.       mMove girl3
  135.       EXIT
  136.     end if
  137.   end repeat
  138.   IF NOT(SPRITE 14 WITHIN 3) THEN
  139.     SET THE LOCH OF SPRITE 14 TO THE LOCH OF SPRITE 14 - RmoveH
  140.     set the locV of sprite 14 to the locV of sprite 14 - RmoveV
  141.     SET THE CASTNUM OF SPRITE 13 TO startCast + 1
  142.     UPDATESTAGE
  143.     SET THE CASTNUM OF SPRITE 13 TO startCast + 2
  144.     UPDATESTAGE
  145.     SET THE CASTNUM OF SPRITE 13 TO startCast + 3
  146.     UPDATESTAGE
  147.     SET THE CASTNUM OF SPRITE 13 TO startCast
  148.     UPDATESTAGE
  149.     SET THE CASTNUM OF SPRITE 13 TO startCast + 1
  150.     UPDATESTAGE
  151.     SET THE CASTNUM OF SPRITE 13 TO startCast + 2
  152.     UPDATESTAGE
  153.     SET THE CASTNUM OF SPRITE 13 TO startCast + 3
  154.     UPDATESTAGE
  155.     SET THE CASTNUM OF SPRITE 13 TO startCast
  156.     UPDATESTAGE
  157.     mMove girl1
  158.     mMove girl2
  159.     mMove girl3
  160.   ELSE
  161.     if direction = 8 or direction = 2 then
  162.       put 2 into step
  163.     else
  164.       put 1 into step
  165.     end if
  166.     repeat with i = 1 to step
  167.       SET THE CASTNUM OF SPRITE 13 TO startCast + 1
  168.       SET THE LOCH OF SPRITE 13 TO THE LOCH OF SPRITE 13 + moveH
  169.       SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + moveV
  170.       UPDATESTAGE
  171.       SET THE CASTNUM OF SPRITE 13 TO startCast + 2
  172.       SET THE LOCH OF SPRITE 13 TO THE LOCH OF SPRITE 13 + moveH
  173.       SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + moveV
  174.       UPDATESTAGE
  175.       SET THE CASTNUM OF SPRITE 13 TO startCast + 3
  176.       SET THE LOCH OF SPRITE 13 TO THE LOCH OF SPRITE 13 + moveH
  177.       SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + moveV
  178.       UPDATESTAGE
  179.       SET THE CASTNUM OF SPRITE 13 TO startCast
  180.       SET THE LOCH OF SPRITE 13 TO THE LOCH OF SPRITE 13 + moveH
  181.       SET THE LOCV OF SPRITE 13 TO THE LOCV OF SPRITE 13 + moveV
  182.       UPDATESTAGE
  183.     end repeat
  184.     mMove girl1
  185.     mMove girl2
  186.     mMove girl3
  187.   END IF
  188. end
  189.